Quadranti variabili

PER QUADRANTE1 :COLORE
ASCOLRIEMPI :COLORE
BASE.01
BLOCCO SDIMTX SDIMTY
CENTRO.01
FINE
PER BASE.02
COMINCIAXY MENO SDIMTX 0
AS "BASE.02 DOVE
FINE
PER CENTRO.02
BASE.02
SALTAXY :QDIM :QDIM
AS "CENTRO.01 DOVE
MOSTARTA
FINE
PER QUADRANTE2 :COLORE
ASCOLRIEMPI :COLORE
BASE.02
BLOCCO SDIMTX SDIMTY
CENTRO.02
FINE
PER BASE.03
COMINCIAXY MENO SDIMTX MENO SDIMTY
AS "BASE.03 DOVE
FINE
PER CENTRO.03
BASE.03
SALTAXY :QDIM :QDIM
AS "CENTRO.01 DOVE
MOSTARTA
FINE
PER QUADRANTE3 :COLORE
ASCOLRIEMPI :COLORE
BASE.03
BLOCCO SDIMTX SDIMTY
CENTRO.03
MOSTARTA
FINE
PER BASE.04
COMINCIAXY 0 MENO SDIMTX
AS "BASE.04 DOVE
FINE
PER CENTRO.04
BASE.04
SALTAXY :QDIM :QDIM
AS "CENTRO.04 DOVE
MOSTARTA
FINE
PER QUADRANTE4 :COLORE
ASCOLRIEMPI :COLORE
BASE.04
BLOCCO SDIMTX SDIMTY
CENTRO.04
FINE